home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok78 / wipe / s / cdo < prev    next >
AmigaDOS Script File  |  1993-11-04  |  439b  |  33 lines
  1. .key pfad
  2. ; CD to Oberon environment
  3. ; usage : cdo [pfad]
  4.  
  5. if not exists Oberon:
  6.   Echo "Laufwerk Oberon: nicht vorhanden !"
  7.   quit
  8. endif
  9.  
  10. stack 30000
  11. path Oberon: add
  12. setenv AEd.mode Oberon
  13.  
  14. cd Oberon:
  15. if "<pfad>" gt " "
  16.   if exists "<pfad>"
  17.     cd "<pfad>"
  18.   endif
  19. else
  20.   if exists "env:OberonProject"
  21.     if exists "$OberonProject"
  22.       echo "cd $OberonProject"
  23.       cd  "$OberonProject"
  24.     endif
  25.   endif
  26. endif
  27.  
  28. run >NIL: AmokEd
  29.  
  30.  
  31.  
  32.  
  33.